unit Unit1;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
  ComObj, ActiveX, Project1_TLB, StdVcl,Forms,Windows;

type
  Tkazarusdemo = class(TAutoObject, Ikazarusdemo)
  protected
    procedure Method1(const AMsg: WideString); safecall;
  end;

implementation

uses ComServ;

procedure Tkazarusdemo.Method1(const AMsg: WideString);
begin
  Application.MessageBox('kazarus.text','kazarus.caption');
end;

initialization
  TAutoObjectFactory.Create(ComServer, Tkazarusdemo, Class_kazarusdemo,
    ciMultiInstance, tmApartment);
end.
